home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / wildcat / distrib.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-22  |  4KB  |  101 lines
  1. (**************************************************************************
  2.  
  3. Global record structure for wcGATE version 4.00.
  4. Copyright 1994 Mustang Software Inc. All rights reserved.
  5.  
  6. Last Revised : 08-22-94
  7.  
  8. Resonsibility: SLR
  9.  
  10. **************************************************************************)
  11.  
  12. type
  13.   PQWKConf = ^TQWKConf;      {XXX.CNF}
  14.   TQWKConf = record
  15.     WildCatConf : Word;      {WildCat Conference Number}
  16.     RemoteConf  : Word;      {Remote Conference Number}
  17.     TagID       : Word;      {Tag ID for this Conference}
  18.     PrivateMail : Boolean;   {Allow Private Mail in this Conference}
  19.   end;
  20.  
  21. type
  22.   PQWKTag = ^TQWKTag;        {XXX.TAG}
  23.   TQWKTag = record
  24.     ImportTag : String[64];  {Import Tag line}
  25.     ExportTag : String[64];  {Export Tag line}
  26.   end;
  27.  
  28. type
  29.   PQWKHub = ^TQWKHub;        {XXX.HUB}
  30.   TQWKHub = record
  31.     HubName  : String[8];    {Name of Hub File (without .HUB)}
  32.     WorkDir  : PathStr;      {Work Directory Path}
  33.     RepDir   : PathStr;      {Reply Directory Path}
  34.     QWKDir   : PathStr;      {QWK Directory Path}
  35.     AttLimit : LongInt;      {File Attachment Size Limit}
  36.     Packer   : Char;         {Packer to be used}
  37.     AtFilter : Boolean;      {Strip colors at codes?}
  38.     TTag     : Boolean;      {Put WCGATE tag on tagline?}
  39.     Append   : Boolean;      {Append to old REP's}
  40.   end;
  41.  
  42. type
  43.   TFeed = (fHub, fDownLine);
  44.  
  45. type
  46.   PUUCPHub = ^UUCPHub;       {XXX.HST}
  47.   UUCPHub = record
  48.     HubName : String[8];     {Host/Downline Node name}
  49.     Filler : String[20];     {Extra filler}
  50.     UniqueHost : Boolean;    {Send non-local mail?}
  51.     AttachLimit : LongInt;   {Attachment limit in bytes}
  52.     TheirDomain : String;    {Their Domain Name}
  53.     TheirSiteName : String;  {Their Site Name}
  54.     DeleteFiles : Boolean;   {Delete files after processing?}
  55.     Feed : TFeed;            {Satellite feed?}
  56.     FilePath : DirStr;       {Path for files to be imported/exported}
  57.     SatellitePath : DirStr;  {Path for BAG files}
  58.     WorkDir : DirStr;        {Path where work files are placed and created}
  59.     Confs : TArray32768Bits; {BitSet including active conferences.}
  60.   end;
  61.  
  62. type
  63.   TNews = (nNormal, nMailingList, nModerated);
  64.  
  65. type
  66.   NewsGroupRecPtr = ^NewsGroupRec;      {NEWSGRPS.DAT}
  67.   NewsGroupRec = record
  68.     GroupName : String;                 {Usenet NewsGroup name}
  69.     Conference : Word;                  {WildCat! Conference Number}
  70.     Distribution : String[80];          {Distribution for this group}
  71.     NewsType : TNews;                   {What type of group is this?}
  72.     ListName : String;                  {Mailing list name}
  73.     ReplyAddress : String;              {Address to send replies to LIST}
  74.   end;
  75.  
  76. type
  77.   AliasList = record                    {XXX.ALS}
  78.     Domain : String;                    {Fully qualified domain name of alias}
  79.     SiteName : String;                  {sitename/machine name of alias}
  80.   end;
  81.  
  82. type
  83.   PWCGateConfig = ^TWCGateConfig;       {WCGATE.CFG}
  84.   TWCGateConfig = record
  85.     MHS_Admin : String[25];             {MHS Administrator name}
  86.     MHS_Path : PathStr;                 {Path to MHS installation}
  87.     MHS_Email : Boolean;                {Use MHS Email?}
  88.     MHS_EmailConf : Word;               {MHS EMail conference}
  89.     MHS_Mail : Boolean;                 {Use MHSMail?}
  90.     MHS_MailConf : Word;                {MHSMail Conference}
  91.     MHS_Echo : Boolean;                 {Use MHSEcho?}
  92.     UUCP_EmailConf : Word;              {Conference for Email}
  93.     UUCP_Bounce : Boolean;              {Bounce messages?}
  94.     UUCP_GMTHoursOfs : Integer;         {Offset in hours from GMT}
  95.     UUCP_GMTMinutesOfs : Byte;          {OffSet in minutes from GMT}
  96.     UUCP_Organization : String[80];     {Organization line}
  97.     UUCP_OurDomain : String;            {OurDomain Name}
  98.     UUCP_OurSiteName : String;          {Our Site Name}
  99.     UUCP_Admin : String[25];            {UUCP Administrator name}
  100.   end;
  101.